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‘PADS RARAARARRRRSASALALASALAALL EASES SESE LEE ERE SECTS ERE RSE ESSE EEE EERE ESE EES SE | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ine 
ON ACCORDA AN THE 


*® 
*® * 
‘* 2 
** ® 
® ® 
** o 
;* ONLY IN N OF SUCH : 
3 INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY "OrneR 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. . 
'® + 
:# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE  * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:* CORPORATION. . 
:* * 
:* * 
*® * 
*® te 
** ® 
ae ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; FACILITY: Basic Support Library 
: ; ABSTRACT: 


This module contains entry points sueper rt epenent tan tan 
(** or *) in BASIC-PLUS-2 for FLOAT ING ** FLOATING. 


; ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: R. Will , CREATION DATE: 22-NOV-78 
MODIFIED BY: 


- Will, : VERSION 01 

-01 - “Origin al 

: 1706 - Fix comments chan . BRW to JMP. RW 7-Dec-78 

-003 - Add "_"' to the PSECT directive. JBS 22-DEC-78 

-004 - Redo end rgnat sis for base og 0, for compatability 
with the PDP-11. JBS 24-APR-1979 

: : 1-005 - Change shared external references to G* RNH 25-Sep-81 
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Prevent undeclared 
symbols from pre 
automatically global. 


OTS$ real ** real exponentiation 
OTS$ real ** int exponentation 
Divide by Zero 

Illegal argument in LOG 

Error reporting routine 


-PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


6-SEP-1984 
; -SBTTL DECLARATIONS 
4 ; INCLUDE FILES: 
2$ 3 
28 3 EXTERNAL DECLARATIONS: 
60 * -DSABL GBL 
6] 
$$ 
64 «EXTRN OTSSPOWRR 
65 ~EXTRN OTSSPOWRJ 
66 ~EXTRN BASS$K_DIVBY_ZER 
67 ~EXTRN BASSK— Ory ARCL OG 
68 .EXTRN BASSSSTOP 
69 
70; 
4 ; MACROS: 
7 
74 ; 
oe : EQUATED SYMBOLS: 
7. 
te ¢ 
79 ; OWN STORAGE: 
80 ; 
81 
82 ; 
o? : PSECT DECLARATIONS: 
85° 
86 
87 


ro 6 
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oO 


i -SBTTL BASSPOWRR = BASIC floating ** floating 
FUNCTIONAL DESCRIPTION: 


This routine takes BASE ** EXP, using the following table 
for unusual cases: 


BASE > 0 Call OTSSPOWRR, normal case. 
BASE = 8. EXP > 8 Return 0.0. 
BASE = 0, EXP = Return 1.0. 
BASE = 0, EXP < 0 Error: divide by zero 
< 0, EXP even integer Call OTS$POWRJ with -BASE 
BASE < 0, EXP odd integer Call OTS$POWRJ with -BASE, negate result 
BASE < 0, EXP not integer Error: illegal argument in LOG. 


; CALLING SEQUENCE: 
CALL result.wf.v = BASSPOWRR (base.rf.v, exponent.rf.v) 
INPUT PARAMETERS: 


base = 4 
exponent = 8 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


floating result of exponentiation 
SIDE EFFECTS: 


Will signal Divide By Zero or Illegal aeons in LOG if its 
arguments are bad, and OTSSPOWRR and OTSSPOWRJ may also signal. 


: BASE 


00000004 
00000008 


0000° BASSPOWRR: : -MASK OTSSPOWRR Entry point ; 

Since this routine uses no 
registers and usually transfers 
control to OTSSPOWRR, we copy 
its register save mask and then 
JMP past its save mask and only 
save the registers once 

Test base relationship to zero 


If base leq 0, do case analysis 


PEEKS FAWN WWI NIIPIDIPININIPININDINID) 2 9 OP PS MOOOOOOCOOCOCOCWOOOOOOOOO 
OEWR OOD NAUE WD 9 ODONA UE WN 9 OO NAME WN 0 ODNAU EWN O OONAOUES WN Oo 
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SOOOoooooo°oo 


04 AC 
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00000002"GF 17 0007 JMP G*OTSSPOWRR+2 ; Transfer control to the OTS$ 

3 routine to do exponentiation 
: Come here if the base is less than or equal to zero. We must filter 
; several special cases, as described above. 


BEQL 4$ ; Branch if base = 0 
EMODF exponent(AP), #0, #1, RO, RO 
BNEQ 3$ 3; Branch if exponent is not integer 


bee Gee 
we 
ee 


o.°6 
50 6500 (08 )«=—00 COB AC CS4 
1A 12 


3; The base is less thar zero and the exponent is an rig 2 a 
; BASIC defines this as aga the same way as if an integer was 
; in the expression (making a floating variable which happens to 
3; contain an integer value equivalent to an integer variable). 


50 O08 AC 4A CVTFL exponent(AP), RO ; Convert exponent to integer 
50 OD PUSHL RO 3; Save for even/odd test 
50 DD PUSHL RO ; Stack as parameter to OTS$POWRJ 
04 AC 52 MNEGF base(AP), =(SP) ; Stack -base also : 
00000000'GF 02 FB CALLS #2, G*OTS$POWRJ ; Call integer power routines 
03 BE €E9 BLBC (SP)+,2$ : Branch if exponent even 
a ae MNEGF RO, RO ; Exponent odd, negate the result 
04 2$: RET : and return with it. 
s® 
3; Come here if the base is less than zero but the exponent is not 
3 an integer. BASIC defines this as an error. 
7E 00°SF 9A S$; MOVZBL M#BASS$K_ILLARGLOG, -(SP) ; Illegal Argument in LOG 
00000000'GF 01 FB CALLS #1, G*BASS$STOP 3; Never return. 


+ tnd 
; Come here if the base is equal to zero. The value we return depends 
3; upon the sign of the exponent. 


ROR 2 ee 2 2 2 — ss a — 9 ss 2 9 2 ss a —s 2» — 2 5 bs 2» —» 2» 2 2» —s 45 _s —» 4 4 4s 5 5 4 5 
DOWOOOOOWOOWO O00 00 00 09 09 09 09 09 09 09 SII NINES NNN NSP PAA AAA AAA IIIT 
OOO NO NEWRY) OOO NAW WP) 0 OONAUE WA) 0 OONOAU EWA) O OONOU EWR OOo 

J 


08 AC 53 is: TSTF exponent (AP) ; Test the exponent against zero 
09 19 0040 BLSS 6$ ; Branch if exponent [ss 0 
13 onee . BEQL 5$ : Branch if exponent is 0 
0044 : Come here if the base is zero and the exponent is greater than zero. 
ood 3; BASIC defines this as 0.0. 
50 D& 0044 CLRF RO ; RO = 0.0 
04 Beg RET ; Return to caller 
3+ 
0047 ; Come here if the base is zero and the exponent is zero. BASIC defines 
0047 3 this as 1.0. 
0047 .- 
50 08 50 0047 S$: MOVF #1, RO ; RO = 1.0 
04 boee ‘ RET 3; Return to caller. 
048 : Come here if the base is zero and the exponent is less than zero. 
Boag ; BASIC defines this as an error. 
7E 00°8F 9A 0048 és: MOVZBL #BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB Boer CALLS #1, G*BAS$$sTOP : Report error, never return. 
0056 ; END 
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BASSSSTOP eeereree 68 
BASSK_DIVBY ZER eeneeee 0 
BASSK_ILLARGLOG seereeee xX 00 
BASSPOWRR 00000000 RG 01 
BASE = 00000004 
EXPONENT = 00000008 
OTS$POWRJ eeereeee =X 00 
OTS$POWRR eeeeeeee =X 00 

fw oma swe aa em Ch 

‘ Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
OS , 00000000 < 0.) 00%. 9%.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 00000056 ( 86.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

eae trees eee ee ee ese sess ee + 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 38 00:00:00.08 00:00:00.58 
Command processing 127 00:00:00.49 00:00:02.20 
Pass 1 69 00:00:00.48 00:00:01.26 
Symbol table sort 00:00:00.00 00:00:00.00 
Pass 2 48 00:00:00.40 00:00:00.82 
Symbol table output 3 00:00:00.02 00:00:00.02 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 289 00:00:01.50 00:00:04.90 


The working set Limit was 750 pages. : ; 

2270 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 6 local symbols. 
201 source Lines were read in Pass 1, prodys sng 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


fow enue nner ow eanaomanaes + 


! Macro Library statistics ! 
pe wean ae aomece nto De eRe oH ee + 


Macro Library name Macros defined 
“$255S$DUA2B:(SYSLIBISTARLET.MLB;20 tt StS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESS1ION/DISABLE=(GLOBAL , TRACEBACK) /L1S=L1S$:BASPOWRR/OBJ=0BJ$:BASPOWRR MSRC$:BASPOWRR/UPDATE =< ENHS: BASPOWRR ) 
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